home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 16 / AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso / pd / anwendungen / madhouse / install&remove / install < prev    next >
Text File  |  1998-01-21  |  22KB  |  814 lines
  1. ; Installation script for Madhouse V2.12
  2. ; Revision 2 - multilingual, docs in lha archive, size-checks.
  3. ; Revision 3 - changed for Madhouse 1.2
  4. ; Revision 4 - changed for Madhouse 2
  5. ; Revision 5 - changed for Madhouse 2.1
  6. ; Revision 6 - bugfixed for Madhouse 2.1(1). Update facility.
  7. ; Revision 7 - changed to be compatible to Installer 43.3
  8. ; Revision 7 - changed for Madhouse 2.5
  9.  
  10. (complete 0)
  11.  
  12. (set #mainprgsource "/Madhouse")
  13. (set #mainprgdest "SYS:WBStartup")
  14.  
  15. ; File-sizes for space check. Including icons.   *****
  16. (set #size-mainprg 60000 )
  17. (set #size-locale 30000 )
  18. ; (set #size-configed 170000 )
  19. ; (set #size-blankers 330000 )
  20. ; (set #size-germandoc 155000 )
  21. ; (set #size-englishdoc 98000 )
  22. ; (set #size-importhelp 70000 )
  23.  
  24. (set #updatemode 0)
  25.  
  26. (if (= @language "deutsch") (
  27.     (set #def-anleit 0)
  28.     (set #size-defaultdoc #size-germandoc)
  29.     
  30.    (set #wrong-os
  31.     (cat "\nTut uns leid, Madhouse benötigt OS v2.04 oder höher!!\n"))
  32.     
  33.     (set #diskfull
  34.     (cat "Das Installationsscript muß leider abbrechen, weil auf der "
  35.          "Festplattenpartition \"%s\" nicht genug Platz "
  36.           "vorhanden ist." ))
  37.     
  38.     (set #copying-mainprg
  39.     (cat "\nJetzt wird das Programm Madhouse in Ihre "
  40.                 "SYS:WBStartup-Schublade kopiert. Dort wird es dann nach "
  41.                     "jedem Reset gestartet.\n"
  42.                     "Dieses Programm verwaltet die "
  43.                     "Blanker, das Einstellungsprogramm muß ebenfalls damit "
  44.                     "aufgerufen werden."))
  45.     ; *****
  46.     (set #select-defdir
  47.     (cat "Bitte wählen Sie jetzt die Schublade, in der der "
  48.                 "Anleitungstext, der MadhouseConfigEd und die Blanker installiert werden sollen.\n"
  49.                     "In diesem Verzeichnis sollten mindestens ca. 1MB frei sein!\n" ))
  50.     
  51.     (set #select-dir-prompt
  52.     (cat
  53.                 "Wählen Sie das Verzeichnis, in dem Madhouse installiert "
  54.                     "werden soll. Vergessen Sie nicht, ein neues Unterverzeichnis "
  55.                     "anzulegen, falls Sie eines wünschen!" ))
  56.     
  57.     (set #select-dir-help
  58.     (cat
  59.                 "Wie vorhin gesagt wurde, sollten Sie hier das Zielverzeichnis "
  60.                     "für Madhouse auswählen, in das die Anleitungen, der MadhouseConfigEd und "
  61.                     "die Blanker geschrieben werden.\nUm ein neues Verzeichnis anzulegen, "
  62.                     "benutzen Sie \"Make new drawer...\" und geben Sie den Namen in das Textfeld "
  63.                     "ein."))
  64.     
  65.     (set #no-min-space
  66.     (cat "Leider reicht der Platz auf der ausgewählten Festplatte "
  67.          "nicht mal für die nötigsten Dateien. Bitte wählen Sie einen anderen "
  68.           "Pfad (\"Proceed\") oder brechen Sie die Installation ab "
  69.           "(\"Abort Install\")." ))
  70.     (set #no-doc-space
  71.     (cat "Der Platz auf der ausgewählten Diskette / Festplatte reicht zwar für "
  72.          "die nötigsten Dateien, aber die deutsche Anleitung paßt schon nicht "
  73.           "mehr. Wollen Sie einen neuen Pfad wählen?" ))
  74.     (set #yes
  75.     (cat "Ja." ))
  76.     (set #no
  77.     (cat "Nein." ))
  78.     
  79.     (set #doing-docs
  80.     (cat "Die deutsche Anleitung wird kopiert." ))
  81.     
  82.     (set #doing-configed
  83.     (cat "\nJetzt wird der MadhouseConfigEd kopiert." ))
  84.     
  85.     (set #blank 
  86.     (cat"\nJetzt werden die Blanker kopiert." ))
  87.                 
  88.     (set #icontext
  89.     (cat "Für das Madhouse-Programm in WBStartup/ stehen sieben Icons zur Auswahl (Zur "
  90.          "Entscheidungshilfe zuerst in Icons/ ansehen, dann fortfahren.)\n"
  91.           "MWB=Die MagicWB-Farben müssen installiert sein."))
  92.     (set #iconchoices-1
  93.     (cat "Standard-Icon (Hauptfenster)" ))
  94.     (set #iconchoices-2
  95.     (cat "Schwarzer Keil (MWB)" ))
  96.     (set #iconchoices-3
  97.     (cat "Monitor" ))
  98.     (set #iconchoices-4
  99.     (cat "Monitor (MWB)" ))
  100.     (set #iconchoices-5
  101.     (cat "Schwarzer Monitor" ))
  102.     (set #iconchoices-6
  103.     (cat "Schwarzer Monitor (MWB)" ))
  104.     (set #iconchoices-7
  105.     (cat "Madhouse-Schriftzug" ))
  106.     
  107.     (set #diskfull-locale
  108.     (cat "Dies ist zwar ein Amiga mit OS 2.1 oder höher, die deutschsprachigen "
  109.          "Locale-Dateien können jedoch trotzdem nicht installiert werden, weil "
  110.           "auf der zuständigen Festplattenpartition nicht mehr "
  111.           "genügend Platz ist." ))
  112.     (set #locale-update
  113.     (cat "Die Locale-Dateien sind bereits vorhanden und werden gleich erneuert. "
  114.          "Es ist jedoch möglich, daß das Betriebssystem diese Daten noch im Speicher "
  115.           "hält, und Madhouse beim Start die alten Daten aus dem Speicher bekommt. "
  116.           "Sie umgehen diese Situation durch a) einen Reset nach der Installation oder "
  117.           "b) durch Beenden von Madhouse und Eingeben von \"avail flush\" in einer Shell, "
  118.           "dann können Sie das neue Madhouse starten." ))
  119.     
  120.     (set #use-locale
  121.     (cat "TOLL! Dies ist ein Amiga mit OS 2.1 oder höher! Wenn Sie also wollen, können "
  122.                 "die Programtexte von Madhouse auf deutsch erscheinen.\n"
  123.                     "Sollen die deutschen Locale-Texte installiert werden?"))
  124.     (set #locale-1
  125.     (cat "Ja" ))
  126.     (set #locale-2
  127.     (cat "Diesen Teil überspringen" ))
  128.     
  129.     ; canceled.
  130.     (set #graphicext
  131.     (cat "Vom Blanker Stars sind zwei Versionen verfügbar. Eine, die garantiert funktioniert, "
  132.          "und eine, die mit Grafikkarten (nicht dem AGA-Chipset, das läuft!) Probleme machen "
  133.           "wird. Wurde eine besondere Grafikkarte installiert?"))
  134.     (set #graphicext-1
  135.     (cat "Ja / Ich weiß nicht."))
  136.     (set #graphicext-2
  137.     (cat "Nein."))
  138.     (set #graphicexthelp
  139.     (cat "Wer sich hier nicht schlüssig ist, kann es vorerst auch mit \"Nein\" versuchen. "
  140.          "Der Bildschirmaufbau von Stars kommt dann wahrscheinlich durcheinander, wenn eine "
  141.           "Grafikkarte im Rechner ist.\nDas AGA-Chipset ist im A1200 und A4000 eingebaut und "
  142.           "macht keine Probleme." ))
  143.     
  144.     ; canceled.
  145.     (set #delprefs
  146.     (cat "Alte Einstellungsdateien \"ENV:\" und \"ENVARC:Madhouse.prefs\" müssen gelöscht werden!!"))
  147.     
  148.     (set #extro
  149.     (cat "Madhouse wurde korrekt installiert. Beim Systemstart wird das Hauptprogramm "
  150.               "von nun an automatisch aktiviert, solange Sie nicht das Programm SYS:WBStartup/Madhouse "
  151.                   "löschen. Dort können Sie es jetzt auch direkt aufrufen, um einen Reset zu "
  152.                   "umgehen.\n\n"
  153.                   "Viel Spaß!" ))
  154.  
  155.     (set #extro-up
  156.     (cat "Madhouse wurde korrekt up-ge-datet.\n"
  157.           "Vielleicht wäre ein Reset jetzt nicht schlecht.\n"
  158.           "Bitte im ConfigEd, System-Seite auf \"Update\" klicken, "
  159.           "damit neue Blanker in die Liste aufgenommen werden.\n\n"
  160.                   "Viel Spaß!" ))
  161.     
  162.     (set #updating
  163.     (cat "Madhouse ist bereits installiert! Das Update wird vollzogen...\nWenn Madhouse "
  164.           "im Moment läuft, dann beende es bitte JETZT!" ))
  165.  
  166.     (set #keyupdating
  167.     (cat "\nDas vorhandene Keyfile kann leider nicht weiterbenutzt werden. Für einen "
  168.           "Großteil der Benutzer kann das Update des Keyfiles jetzt gleich erfolgen, "
  169.           "die neuen Keyfiles werden verschlüsselt mitgeliefert."))
  170.     (set #keyupokay "\nDas Keyfile-Update hat funktioniert.\nDer neue Key ist:\n%s")
  171.     (set #keyupfailed
  172.     (cat "\nSorry: Das Keyfile-Update war nicht möglich. Wenn Du noch keine neuen "
  173.          "Madhouse.key- und Madhouse.key2-Dateien bekommen hast, wende Dich bitte "
  174.          "an den Autor:\n"
  175.          "c.jahn@gmx.de\n"
  176.          "Tel.: +49  (0) 3302 / 80 12 08\n"
  177.          "Carsten Jahn\nKuckucksruf 34\n16761 Stolpe-Sued\nGermany" ))
  178. ))
  179.  
  180.  
  181. (if (<> @language "deutsch") (
  182.     (set #def-anleit 1)
  183.     (set size-defaultdoc size-englishdoc)
  184.  
  185.    (set #wrong-os
  186.     (cat "\nSorry, Madhouse needs OS 2.04 or higher!\n"))
  187.         
  188.     (set #diskfull
  189.     (cat "The script has to abort, because the partition \"%s\" does "
  190.          "not have enough free disk space." ))
  191.     
  192.     (set #copying-mainprg
  193.     (cat "\nNow, the programm Madhouse will be copied into your SYS:WBStartup-drawer. "
  194.          "There it will be started after every reset. This program handles the "
  195.           "blankers, and you have to run the prefs-editor \"MadhouseConfigEd\" from it."))
  196.     
  197.     ; *****
  198.     (set #select-defdir
  199.     (cat "Please select the drawer, in which you want to copy the doc, MadhouseConfigEd "
  200.          "and the blankers in the following requester.\nYou will need about 1MB of "
  201.           "disk space."))
  202.     
  203.     (set #select-dir-prompt
  204.     (cat "Select the drawer in which you want to install Madhouse. If you prefer an own "
  205.          "subdirectory for Madhouse, please create one!" ))
  206.     
  207.     (set #select-dir-help
  208.     (cat "The script will copy MadhouseConfigEd, the docs and the blankers into the "
  209.          "drawer you have to select here. Create a new directory by using "
  210.           "\"Make New Drawer...\" and entering the name of it into the string gadget." ))
  211.     
  212.     (set #doing-docs
  213.     (cat "Copying english documentation." ))
  214.     
  215.     (set #doing-configed
  216.     (cat "\nNow, MadhouseConfigEd will be copied." ))
  217.     
  218.     (set #blank 
  219.     (cat"\nNow, the blankers will be copied." ))
  220.                 
  221.     (set #icontext
  222.     (cat "You have got the choice out of seven icons for the Madhouse-program (in "
  223.          "SYS:WBStartup). To make a decision, you can look at the icons right now "
  224.           "(\"Icons\"-drawer) first. MWB = you "
  225.           "need the MagicWB-colors on your Workbench."))
  226.     (set #iconchoices-1
  227.     (cat "Standard-Icon (from Madhouse-dir)" ))
  228.     (set #iconchoices-2
  229.     (cat "Colored points & black area (MWB)" ))
  230.     (set #iconchoices-3
  231.     (cat "Monitor" ))
  232.     (set #iconchoices-4
  233.     (cat "Monitor (MWB)" ))
  234.     (set #iconchoices-5
  235.     (cat "Black Monitor" ))
  236.     (set #iconchoices-6
  237.     (cat "Black Monitor (MWB)" ))
  238.     (set #iconchoices-7
  239.     (cat "Madhouse-Text" ))
  240.     
  241.     ; Obsolete, english strings are built-in.
  242.     (set #use-locale
  243.     (cat "" ))
  244.     (set #locale-1
  245.     (cat "" ))
  246.     (set #locale-2
  247.     (cat "" ))
  248.     
  249.     ; canceled.
  250.     (set #graphicext
  251.     (cat "The Blanker Stars is available in two versions, one that works in every case and one "
  252.          "that would make troubles with graphic extensions. The AGA-Chipset works with both. "
  253.           "Do you have installed a graphic extension?"))
  254.     (set #graphicext-1
  255.     (cat "Yes / I don't know."))
  256.     (set #graphicext-2
  257.     (cat "No"))
  258.     (set #graphicexthelp
  259.     (cat "If you don't know the answer, you should perhaps even try \"Yes\", because you would "
  260.          "know if you've had added something to your Amiga...\nThe AGA-Chipset is in every A1200 "
  261.           "and A4000 and makes no troubles."))
  262.     
  263.     ; canceled.
  264.     (set #delprefs
  265.     (cat "Old preference files \"ENV:\" and \"ENVARC:Madhouse.prefs\" have to be deleted!!"))
  266.     
  267.     (set #extro
  268.     (cat "Madhouse was installed correctly. While booting, the main program \"Madhouse\" "
  269.          "will be started automatically, as long as you don't delete it (it is in "
  270.           "SYS:WBStartup). You can start it directly, if you don't want to reset your "
  271.           "machine.\nEspecially if you do not own a hard disk, you should read the "
  272.           "doc, otherwise you should it do anyway, of course...\n\nEnjoy!"))
  273.     (set #extro-up
  274.     (cat "Madhouse was updated correctly.\n"
  275.           "Maybe a reset would be good now.\n"
  276.           "Please click on \"Update\" (ConfigEd, System page), "
  277.           "to refresh the blanker list.\n\n"
  278.                   "Enjoy!" ))
  279.  
  280.     (set #updating
  281.     (cat "Madhouse is already installed! Updating...\nIf Madhouse is running at the "
  282.           "moment, please quit it NOW." ))
  283.     (set #keyupdating
  284.     (cat "\nYour existing keyfile can't be used any longer. For a lot of users, the "
  285.          "keyfile update will be possible right now. New keys are submitted in "
  286.          "encrypted form."))
  287.     (set #keyupokay "\nKeyfile update worked okay.\nYour new key is:\n%s")
  288.     (set #keyupfailed
  289.     (cat "\nSorry: Keyfile Update was not possible with your key. If you did not "
  290.          "get new Madhouse.key and Madhouse.key2 files yet, please contact the "
  291.          "author at:\n"
  292.          "c.jahn@gmx.de\n"
  293.          "Tel.: +49  (0) 3302 / 80 12 08\n"
  294.          "Carsten Jahn\nKuckucksruf 34\n16761 Stolpe-Sued\nGermany" ))
  295. ))
  296.  
  297.  
  298.  
  299. ;  **** Auf OS 2.04 checken.
  300.  
  301. (if (< (/ (getversion) 65536) 37)
  302.     (
  303.         (message #wrong-os)
  304.         (exit (quiet))
  305.     )
  306. )
  307. (complete 1)
  308.  
  309.  
  310.  
  311.  
  312. ;  **** Madhouse suchen.
  313.  
  314. (if (exists "SYS:WBStartup/Madhouse") (set #updatemode 1))
  315. (if (exists "SYS:WBStartup/WBStartup (Enabled)/Madhouse") (
  316.     (set #updatemode 1)
  317.     (set #mainprgdest "SYS:WBStartup/WBStartup (Enabled)")
  318. ))
  319. (if (exists "SYS:WBStartup/WBStartup (Disabled)/Madhouse") (
  320.     (set #updatemode 1)
  321.     (set #mainprgdest "SYS:WBStartup/WBStartup (Disabled)")
  322. ))
  323. (if (exists "SYS:Startup/Madhouse") (
  324.     (set #updatemode 1)
  325.     (set #mainprgdest "SYS:Startup")
  326. ))
  327.  
  328.  
  329.  
  330.  
  331. ;  **** ConfigEd suchen. #gtt belegen.  ****  Update vom Keyfile?
  332.  
  333. ; #keyupdate = 0: kein Key. = 1: nur alter Key. = 2 neuer Key schon da.
  334.  
  335. (run (cat "Gettooltype \"" (tackon #mainprgdest "Madhouse") "\" CONFIGED") )
  336. (set #gtt (getenv "Gettooltype"))
  337. (delete "ENV:Gettooltype")
  338.  
  339. (set #keypath "S:Madhouse")  ; without .key extension.
  340. (set #keyupdate 0)
  341. (if (exists "S:Madhouse.key" ) (
  342.     (set #keyupdate 1)
  343. ))
  344. (if (exists (tackon (pathonly #gtt) "Madhouse.key") ) (
  345.     (set #keypath (tackon (pathonly #gtt) "Madhouse"))
  346.     (set #keyupdate 1)
  347. ))
  348.  
  349. ; new keyfile already there?
  350. (if (exists "S:Madhouse.key2" ) (set #keyupdate 2) )
  351. (if (exists (tackon (pathonly #gtt) "Madhouse.key2") ) (
  352.     (set #keyupdate 2)
  353. ))
  354. (if (exists "KEYS:Madhouse.key2"            (noreq) ) (set #keyupdate 2) )
  355. (if (exists "KEYFILES:Madhouse.key2"    (noreq) ) (set #keyupdate 2) )
  356. (if (exists "KEYPATH:Madhouse.key2"        (noreq) ) (set #keyupdate 2) )
  357. (if (exists (tackon (getenv "KEYPATH") "Madhouse.key2") ) (set #keyupdate 2) )
  358.  
  359. (if (= #keyupdate 1) (
  360. ; alter Key da, aber kein neuer Key.
  361.     (if (NOT (exists "/KeyUpdate/KeyUpdater")) (
  362.         (exit "\n\nThis is no original distribution archive!\nCouldn't find KeyUpdater.\n")
  363.     ))
  364.     (message #keyupdating)
  365.     (set @execute-dir "/KeyUpdate" )
  366.     (set #keyupresult (run ("KeyUpdater >CON:100/100/400/150/KeyUpdater-Output/CLOSE/WAIT GET %s" #keypath )))
  367.     (if (= #keyupresult 0 ) (
  368.         (message (#keyupokay (cat #keypath ".key2" )))
  369.     )(
  370.         (message #keyupfailed)
  371.     ))
  372. ))
  373.  
  374.  
  375. ;  **** Update von Madhouse?
  376.  
  377. (if (= #updatemode 1) (
  378.     (message #updating)
  379. ))
  380.  
  381.  
  382.  
  383.  
  384.  
  385. ;  **** Erster size-check
  386.  
  387. (set #wb-space (getdiskspace "SYS:" ))
  388.  
  389. (if (< #wb-space #size-mainprg) (
  390.     (abort (#diskfull (expandpath "SYS:")) )
  391. ))
  392.  
  393. (complete 2)
  394.  
  395.  
  396.  
  397. ;  **** Main-Program in SYS:WBStartup/
  398.  
  399. (complete 0)
  400.  
  401. (message #copying-mainprg )
  402.  
  403. (copyfiles
  404.   (source #mainprgsource)
  405.   (dest #mainprgdest)
  406. )
  407. (complete 10)
  408.  
  409.  
  410.  
  411. ;  **** Icon for Main-Program
  412.  
  413. (if (= #updatemode 0) (
  414.     ; (run ("delete SYS:WBStartup/Madhouse.info"))
  415.     (set #icontype (askchoice
  416.             (prompt #icontext )
  417.             (help    ""    )
  418.             (choices #iconchoices-1 #iconchoices-2 #iconchoices-3 #iconchoices-4 #iconchoices-5 #iconchoices-6 #iconchoices-7 )
  419.             (default 5)
  420.         )
  421.     )
  422.     (set #icondest "BlaBla!")
  423.     (if (= #icontype 0) (
  424.         (set #iconsource "/Madhouse.info")
  425.         (set #icondest "SYS:WBStartup/Madhouse.info")
  426.     ))
  427.     (if (= #icontype 1) (
  428.         (set #iconsource "/Icons/Madhouse_MWB1.info")
  429.         (set #icondest "SYS:WBStartup/Madhouse_MWB1.info")
  430.     ))
  431.     (if (= #icontype 2) (
  432.         (set #iconsource "/Icons/Madhouse2.info")
  433.         (set #icondest "SYS:WBStartup/Madhouse2.info")
  434.     ))
  435.     (if (= #icontype 3) (
  436.         (set #iconsource "/Icons/Madhouse_MWB2.info")
  437.         (set #icondest "SYS:WBStartup/Madhouse_MWB2.info")
  438.     ))
  439.     (if (= #icontype 4) (
  440.         (set #iconsource "/Icons/Madhouse3.info")
  441.         (set #icondest "SYS:WBStartup/Madhouse3.info")
  442.     ))
  443.     (if (= #icontype 5) (
  444.         (set #iconsource "/Icons/Madhouse_MWB3.info")
  445.         (set #icondest "SYS:WBStartup/Madhouse_MWB3.info")
  446.     ))
  447.     (if (= #icontype 6) (
  448.         (set #iconsource "/Icons/Madhouse4.info")
  449.         (set #icondest "SYS:WBStartup/Madhouse4.info")
  450.     ))
  451.     (copyfiles
  452.         (source #iconsource)
  453.         (dest "SYS:WBStartup")
  454.         (noposition)
  455.     )
  456.     (run ("rename %s SYS:WBStartup/Madhouse.info" #icondest ))
  457. ))
  458. (complete 17)
  459.  
  460.  
  461.  
  462. ;  **** Locale
  463.  
  464. (if (> (/ (getversion) 65536) 37)
  465.     (
  466.         (if (<> #def-anleit 1 ) (
  467.  
  468.             (set #loc-space (getdiskspace "LOCALE:" ))
  469.             (if (< #loc-space size-locale) (
  470.                     (message ( #diskfull-locale ))
  471.                 )(
  472.                     (set #useloc 0)
  473.                     (if (= #updatemode 1) (
  474.                         (if (exists "LOCALE:Catalogs/deutsch/madhouse.catalog") (set #useloc 1))
  475.                     )(
  476.                         (set #useloc  (askbool (prompt #use-locale)
  477.                                      (help "")
  478.                                      (choices #locale-1 #locale-2 )) )
  479.                     ))
  480.                     (if (= #useloc 1)
  481.                     (
  482.                         ;(if (exists "LOCALE:Catalogs/deutsch/madhouse.catalog") (
  483.                         ;   (message (#locale-update))
  484.                         ;))
  485.                         (copyfiles
  486.                            (source "/locale/deutsch/madhouse.catalog")
  487.                            (dest "LOCALE:Catalogs/deutsch")
  488.                         )    
  489.                         (copyfiles
  490.                            (source "/locale/deutsch/madhousebg.catalog")
  491.                            (dest "LOCALE:Catalogs/deutsch")
  492.                         )
  493.                     ))
  494.             ))
  495.         ))
  496.         (run "c:avail flush")
  497.     )
  498. )
  499. (complete 27)
  500.  
  501.  
  502. ;  **** Library
  503.  
  504. (copylib
  505.     (source "/libs/madblankersupport.library")
  506.     (dest "Libs:")
  507. )
  508.  
  509. (complete 30)
  510.  
  511.  
  512. ;  **** Set directory for docs, blankers etc...
  513.  
  514. (set #min-space (+ #size-configed #size-blankers))
  515. (set #doc-space (+ #min-space #size-defaultdoc))
  516.  
  517. (set #loopagain 1)
  518.  
  519. (if (= #updatemode 1) (
  520.     (set #loopagain 0)
  521.     ; #gtt schon belegt.  (s.o.)
  522.     (if (exists #gtt) (
  523.         (set @default-dest (pathonly #gtt))
  524.     )(
  525.         (set #loopagain 1)
  526.         (message #select-defdir )
  527.     ))
  528. )(
  529.     (message #select-defdir )
  530. ))
  531.  
  532.  
  533. (if (= #loopagain 1 ) (
  534.     (set @default-dest
  535.       (askdir
  536.         (prompt #select-dir-prompt )
  537.         (help #select-dir-help )
  538.          (default ":")
  539.       )
  540.     )
  541. ))
  542.     
  543.  
  544. (complete 35)
  545.  
  546.  
  547. ;  **** Doc-Files
  548.  
  549. (working #doing-docs)
  550.  
  551. (if (= #updatemode 1) (
  552.     ; evtl. alte Anleitung löschen.
  553.     (if (exists (tackon @default-dest "Registration_D.txt")) (
  554.         (delete (tackon @default-dest "Registration_D.txt") )
  555.         (delete (tackon @default-dest "Registration_D.txt.info") )
  556.     ))
  557.     (if (exists (tackon @default-dest "Anleitung.guide")) (
  558.         (delete (tackon @default-dest "Anleitung.guide") )
  559.         (delete (tackon @default-dest "Anleitung.guide.info") )
  560.     ))
  561.     (if (exists (tackon @default-dest "Registration_E.txt")) (
  562.         (delete (tackon @default-dest "Registration_E.txt") )
  563.         (delete (tackon @default-dest "Registration_E.txt.info") )
  564.     ))
  565.     (if (exists (tackon @default-dest "Doc.guide")) (
  566.         (delete (tackon @default-dest "Doc.guide") )
  567.         (delete (tackon @default-dest "Doc.guide.info") )
  568.     ))
  569. ))
  570.  
  571.  
  572. (if (= #def-anleit 1) ( 
  573.     (copyfiles
  574.         (source "/Docs/MadhouseE.guide" )
  575.        (dest @default-dest)
  576.         (infos)
  577.         (noposition)
  578.     )
  579. )(
  580.     (copyfiles
  581.         (source "/Docs/MadhouseD.guide" )
  582.        (dest @default-dest)
  583.         (infos)
  584.         (noposition)
  585.     )
  586. ))
  587.  
  588.  
  589.  
  590. (if (= #keyupdate 0) (
  591. ; kein Keyfile installiert.
  592.  
  593.     (set #registerdest (tackon @default-dest "MadRegister"))
  594.     (makedir #registerdest)
  595.     (copyfiles
  596.         (source "/MadRegister.info" )
  597.        (dest @default-dest)
  598.         (infos)
  599.         (noposition)
  600.     )
  601.  
  602.     (if (= #def-anleit 1) ( 
  603.         (copyfiles
  604.             (source "/MadRegister/Registration_E.txt" )
  605.            (dest #registerdest)
  606.             (infos)
  607.             (noposition)
  608.         )
  609.         (copyfiles
  610.             (source "/MadRegister/email-Register_E.info" )
  611.            (dest #registerdest)
  612.             (infos)
  613.             (noposition)
  614.         )
  615.     )(
  616.         (copyfiles
  617.             (source "/MadRegister/Registration_D.txt" )
  618.            (dest #registerdest)
  619.             (infos)
  620.             (noposition)
  621.         )
  622.         (copyfiles
  623.             (source "/MadRegister/email-Register_D.info" )
  624.            (dest #registerdest)
  625.             (infos)
  626.             (noposition)
  627.         )
  628.     ))
  629.     
  630.     (copyfiles
  631.         (source "/MadRegister/KeyUpdater" )
  632.        (dest #registerdest)
  633.     )
  634.     (copyfiles
  635.         (source "/MadRegister/emailRegister" )
  636.        (dest #registerdest)
  637.     )
  638. ))
  639.     
  640.     
  641.  
  642.  
  643. (complete 45)
  644.  
  645.  
  646.  
  647. ;  **** MadhouseConfigEd
  648.  
  649. (message #doing-configed)
  650. (copyfiles
  651.    (source "/MadhouseConfigEd")
  652.    (dest @default-dest)
  653. )
  654. (complete 55)
  655.  
  656.  
  657.  
  658. ;  **** Blankers
  659.  
  660. (procedure TESTRENAMEBLANKER
  661. (
  662.     ; Argument: #checkbl is the blanker's directory.
  663.     
  664.     (run ("getblankertype %s" (tackon #checkbl "gadget")))
  665.     
  666.     (set #blproto (getenv "getblankertype"))
  667.     
  668.     (if (= #blproto "Blitz" ) ( rename #checkbl (cat #checkbl "-Blitz") ))
  669.     (if (= #blproto "Garshne" ) ( rename #checkbl (cat #checkbl "-Garshne") ))
  670.     (if (= #blproto "Swaz" ) ( rename #checkbl (cat #checkbl "-Swaz") ))
  671.     (if (= #blproto "Madhouse" ) (
  672.         ; old protocol
  673.         (run ("delete %s ALL" #checkbl))
  674.         (run ("delete %s" (cat #checkbl ".info") ))
  675.     ))
  676.     
  677.     (delete "ENV:getblankertype" )
  678. ))
  679.  
  680. (procedure COPYBLANKER
  681. (
  682.     ; Argument: #copybl is the blanker's name.   ("Stars")
  683.     ;           #bl-dest is destination drawer   ("yz:xy/Blankers")
  684.  
  685.     (working ("\nCopying submitted blankers...\n%s" #copybl ))
  686.     
  687.     (set #bldir-dest (tackon #bl-dest #copybl))
  688.     (makedir #bldir-dest)
  689.     ; if not already existing.
  690.  
  691.     (if (exists (tackon #bldir-dest "pref")) (
  692.         ; don't overwrite user's preferences.
  693.         (copyfiles
  694.             (source (tackon "/Blankers" #copybl) )
  695.             (dest #bldir-dest)
  696.             (help "" )
  697.             (pattern "~(pref)")
  698.             (optional "force" )
  699.             (infos)
  700.             (noposition)
  701.         )
  702.     )(
  703.         (copyfiles
  704.             (source (tackon "/Blankers" #copybl) )
  705.             (dest #bldir-dest)
  706.             (help "" )
  707.             (all)
  708.             (optional "force" )
  709.             (infos)
  710.             (noposition)
  711.         )
  712.     ))
  713. ))
  714.  
  715.  
  716. (message #blank )
  717.  
  718. (set #bl-dest ( tackon @default-dest "Blankers" ) )
  719.  
  720. (if (= #updatemode 0 ) (
  721.     (makedir #bl-dest )
  722. )(
  723.     ; new Blankers like Interference might already exist (Garshne etc.)
  724.     
  725.     (set #checkbl (tackon #bl-dest "Interference"))
  726.     (TESTRENAMEBLANKER)
  727.     
  728.     (set #checkbl (tackon #bl-dest "Water"))
  729.     (TESTRENAMEBLANKER)
  730.     
  731. ))
  732.  
  733.  
  734.  
  735. ; copy blankers.
  736.  
  737. (foreach "/Blankers" "~(#?.info|the_right_drawer)" (
  738.     (set #copybl @each-name)
  739.     (COPYBLANKER)
  740. ))
  741.  
  742.  
  743.  
  744. (copyfiles
  745.     (source "/blankers.info" )
  746.     (dest @default-dest )
  747.     (help "" )
  748. )
  749.  
  750.  
  751. (if (= #updatemode 1) (
  752.     ; delete blankers which are not supported any more.
  753.     
  754.     (foreach #bl-dest "~(#?.info|the_right_drawer)" (
  755.         (working ("\nSearching for old blankers...\n%s" @each-name ))
  756.         (run ("getblankertype %s" (tackon (tackon #bl-dest @each-name) "gadget")))
  757.         
  758.         (set #blproto (getenv "getblankertype"))
  759.         (if (= #blproto "Madhouse" ) (
  760.             ; old protocol
  761.             (run ("delete %s ALL" (tackon #bl-dest @each-name)))
  762.             (run ("delete %s" (cat (tackon #bl-dest @each-name) ".info")))    
  763.         ))
  764.         
  765.     ))
  766.     (delete "ENV:getblankertype")
  767.     
  768. ))
  769.  
  770.  
  771.  
  772. (complete 80)
  773.  
  774.  
  775.  
  776. ;  **** ImportHelp
  777.  
  778. (set #imphelp-dest ( tackon @default-dest "ImportHelp" ) )
  779.  
  780. (if (= #updatemode 0 ) (makedir #imphelp-dest ) )
  781.  
  782. (copyfiles
  783.     (source "/ImportHelp")
  784.     (dest #imphelp-dest)
  785.     (help "" )
  786.     (all)
  787.     (infos)
  788.     (noposition)
  789. )
  790.  
  791. (complete 90)
  792.  
  793.  
  794.  
  795. ;  **** Set ToolType for SYS:WBStartup/Madhouse
  796.  
  797. (if (= #updatemode 0) (
  798.     (tooltype  (dest "SYS:WBStartup/Madhouse")
  799.                (settooltype "CONFIGED" (tackon @default-dest "MadhouseConfigEd"))
  800.     )
  801. ))
  802. (complete 95)
  803.  
  804.  
  805. ;
  806. ;  **** Extro
  807.  
  808. (if (= #updatemode 0 ) (message #extro) (message #extro-up) )
  809.  
  810.  
  811. ;   **** Finished!
  812.  
  813.  
  814.